unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Math;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  AValue:Double;
begin
  AValue:=1.225;
  //AValue:=Round(AValue*100) /100 ;
  //ShowMessage(FloatToStr(AValue));
  //ShowMessage(floattostr(RoundTo(AValue,-2)));
  //ShowMessage(FormatFloat('0.00',AValue));
  AValue := AValue*100+0.5;
  ShowMessage(FloatToStr(AValue));
//  AValue := TRUNC(AValue)/100;
  AValue:=Trunc(AValue);

  AValue:=AValue/100;

  ShowMessage(FloatToStr(AValue));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  AValue:Double;
begin
  AValue:=14.655;

  AValue:=(AValue * 100 + 0.5);
  AValue:=Trunc(AValue) /100;
  ShowMessage(FloatToStr(AValue));
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  AValue:Double;
begin
  AValue:= StrToFloat(FormatFloat('#.00',14.655));
  ShowMessage(FloatToStr(AValue));
end;

end.
